home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / programs / sound / delitracker_v2.01 / arexx / dt_controll.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-13  |  2KB  |  87 lines
  1. /* DeliTracker remote Conotrol (written for Testpurposes) */
  2. /* This is a script for controlling Delitracker from CLI  */
  3.  
  4.  
  5. address 'DELITRACKER'
  6.  
  7. predefined = 'Data:Modules/NoiseTracker/mod.Enola Gay'
  8. qf=0
  9.  
  10. do until qf=1 
  11.  
  12.      say
  13.      say " DeliTracker remote Controllpanel "
  14.      say
  15.      say " Play Faster        [+]    Play Slower        [-]"
  16.      say " Next Song        [6]    Prev Song        [4]"
  17.      say " Next Subsong        [3]    Prev Subsong        [1]"
  18.      say " Next Pattern        [9]    Prev Pattern        [7]" 
  19.      say " Open windows        [5]    Close windows        [8]"
  20.      say " Volume Slide        [[]    Balance Slide        []]"
  21.      say " Select Module(s)    [*]    Play predefined        [\]"
  22.      say " Predefine        [/]    Quit DeliTracker         [.]"
  23.      say
  24.  
  25.      say 'Your choice > ' ; pull Input
  26.  
  27.      if Input = '+' then faster
  28.  
  29.      if Input = '-' then slower
  30.  
  31.      if Input = '6' then nextsong
  32.  
  33.      if Input = '4' then prevsong
  34.  
  35.      if Input = '3' then nextsubsong
  36.  
  37.      if Input = '1' then prevsubsong
  38.  
  39.      if Input = '9' then nextpattern
  40.  
  41.      if Input = '7' then prevpattern
  42.  
  43.      if Input = '5' then showgui
  44.  
  45.      if Input = '8' then hidegui
  46.  
  47.      if Input = '*' then playmod
  48.  
  49.      if Input = '\' then playmod predefined
  50.  
  51.      if Input = '.' then do
  52.                quit
  53.                qf=1
  54.                   end
  55.  
  56.      if Input = '/' then do
  57.               say "Song>"
  58.               pull predefined
  59.               end
  60.  
  61.      if Input = '[' then do
  62.               do Volume = 32 to 64
  63.                   'Volume' Volume
  64.                  end Volume
  65.                  do Volume = 64 to 0 by -1
  66.                   'Volume' Volume
  67.                  end Volume
  68.                  do Volume = 0 to 64
  69.                   'Volume' Volume
  70.                  end Volume
  71.             end
  72.  
  73.      if Input = ']' then do
  74.               do Balance = 64 to -64 by -1
  75.                   'Balance' Balance
  76.                  end Balance
  77.               do Balance = -64 to 64
  78.                   'Balance' Balance
  79.                  end Balance
  80.               do Balance = 64 to 0 by -1
  81.                   'Balance' Balance
  82.                  end Balance
  83.             end
  84.  
  85. end
  86.  
  87.